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OO 
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0 000 PPP 


0 PPP 
000 000 PPP PPP 
000 PPP PPP 
000 000 PPP PPP 
000 000 PPP PPP 
000 000 PPP PPP 
000 000 PPPPPPPPPPPP 
000 000 PPPPPPPPPPPP 
000 PPPPPPPPPPPP 
000 000 PPP 
000 O PPP 
000 000 PPP 
000 000 PPP 
000 000 PPP 


0 000 P 
000000000 PPP 
000000000 PPP 
000000000 PPP 
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! 
: REQUIRE file for COPY utility, COPY.REQ 

Version: *v04-000' 

i eeeeereerereeeeeererereeeereneeeeeeneeeeeneeeeeeeenetererereneeeeeerereeene 
‘@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
* 
® 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
! % 
ig THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. * 

® 

® 

® 

® 

® 

® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VR eRe REE E ARERR AAAEREREREAAEE ERE REAR EAAAAAEEAAAEAAEEERATE REARS 


Created by Carol Peters, April 14, 1978, 14:23:00 


anyert bit locations to field detintions rr the global 

— ables. COPYSCLI a? and oh oy STATUS are now BBLOCKS, 
instead of Biivec! TORS: any 0 e field names have been changed. 
Others, specifically “a... or COPYSSEM STATUS, have remained. 


Remove the external declarations from this module and place 
them in the modules which need them. 


1 

i 

i 

: Modified by 

i v03-005 TSK0004 Tamar Krichevsky 6-Mar-1984 

: Add FIRST_WILD_INFILE bit to qualifier structure. This bit 
4 indcates that the current input file is the first one found 
for a wildcard specification. 

i v03-004 TSK0003 Tamar Krichevs ky 9-Feb-1984 

Change severity of the the BADVALUE message from error to 

! severe. 

' 

i v03-003 LMP0150 L. Mark Pilant, 9-Sep-1983 9:46 

: Correct alignment mx the protection fields. 

i v3-002 TSK0002 Tamar Krichevsky 12-Aug-1983 

‘ Fix /PROTECTION qualifier so that unspecified fields will be 
: undisturbed. 

! v3-001 Tsk0001 Tamar Krichevsky 17-Jan-1983 

: 

i 

' 

i 

i 
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Remove the call cli, explicit_qual, explicit_cop_qual macros. 
They are unnecessary with the new CLI interface. 


v203 KRM0037 Karl Malik 12-Jan-1982 
add CREATEDSTM message. 
v202 wMC0031 Wayne Cardoza 22-Dec-1981 
Add ILLDIRCOPY message. 
v201 11-Feb-1981 


KRM0006 K. Malik 
Add MSG$_DIRNOTCRE for use when unable to create 
a network directory. 


v104 TMHOO004 T. Halvorsen 17-Nov-1979 
Change LIBRARY VMSMAC.L32 to REQUIRE VMSMAC.REQ. 


v103 TMHOO003 T. Halvorsen 16-Aug-1979 
Remove fixed_overhead and move to copymain where calculation 
is more relevant. Also, changed cbt message to warning. 


v102 TMHOO02 T. Halvorsen 26-Jul-1979 
Add /VOLUME qualifier for relative volume placement 
Add msg$_cbt for contiguous best try copy 

Remove tty_timeout value since no longer used 


vi01 TMHO001 T. Halvorsen 14-Jul-1979 
Increase yorn ne set FIXED _OVERHEAD to allow for some mag 
tape copying which was failing. 


ee ee ee ee 


; Include files 


REQUIRE "SRC$:VMSMAC.REQ'; 


General purpose macro definitions 


: Equated symbols 


LITERAL 
copy_id = 103, ' COPY facility identifier 
append_id = 113, ! APPEND facility identifier . 
yes = 1, ! Used to set a single status bit on 
no 2 8. ! Used to set a single status bit off 
no_file = 0, ! Invalid file specification routine return code 
true = 1, ' Success code 
false = 0, ! Failure code 
ok = 1, ! Normal routine return code 
error = ¢° ! General error routine return code 
no_more_files = 3, ! End of ingut routine success return code 
no_wild_open = 5, ! Wildcard file cannot be opened success code 
default_alloc = 0 ! Default output allocation size if input size is unknown 
default~protect = -f, i Special RMS default protection indicator 
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max_name_size 
page_size 

disk block_size 
max_To_Length 
single_buffer 
double_buf fer 


nnnnan 
NMOunmgd 
Wo 
vuroreg2 
ie « 
wa 
= 


! 
External Literals for command Line parsing. 


1 
The message codes for COPY and APPEND. 


Sshr_messages (msg, 0, 
(appendedb, success) 
(appendedr, success ), 
(atpc. error), 
(baddelim, error), 
(badkey, error), 
(badlogic, severe), 
(badlogicpc, severe), 
(badvalue, severe), 
(clicb, error), 
(closein, error) 
(closeout, error 
(copiedb, success), 
(copiedr, success), 
(created, info) 
(dirnotcre,warning), 
(hashconcat, error), 
(highver, warning), 
(idxconcat, error) 
(incompat, warning), 
(inv uaval, severe), 
(new sie, success) 
(notcopied, warning) 
(notcmplt, warning), 
(novalue, error), 
(openin, error) 
(openout, errors, 
(overlay, info) 
(readerr, errors, 
(relconcat, error), 
(replaced, info), 
pSynten. severe), 
(wildconcat, error), 
(writeerr, error), 


16-SEP-1984 
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Maximum length of a file specification 
Size of a VAX page (bytes? 

Size of a disk block (bytes) 

Maximum Length of an 1/0 request 
Level of 1/0 buffering 

Level of 1/0 buffering 


y is present on the command Line 
y has been explicity negated 

y is —— present 

y ° 


has been locally negated 


*<file-name> appended to <file-name> (<nn> blocks)** | 
"<file-name> appended to <file-name> (<nn> records)’ 
at PC=<location>” | 
‘invalid delimiter 
“invalid keyword 
“internal logic error detected" Se 
“internal logic error detected at PC=<PC> 
"invalid keyword value is 
CLI control block at <address>"" 
“Error closing <file-name> as input'’ | 
‘Error closing <file-name> as output : 
“<file-name> copied to <file-name> (<nn> blocks)’ 
"“<file-name> copied 
<file-name> create 
<file-name> directory file not created" 
‘dashed file cannot be concatenated < 
“higher version of <file-name> already exists 
Indexed file cannot be concatenated * 
<file-name> and <file-name> have incompatible attr 
“invalid value <value> for qualifier/<qualiifer>' 
mber> files create 
*“<file-name> not copie : 
“<file-name> not completely copied’ 
“keyword requires a value , 
“Error opening <file-name> as input’’ | 
“Error soentes <file-name> as output 
“<file-name> being overwritten 
“Error reading <file-name> 
Relative file f 
“<file-name> being replaced 
Byntenx error “ 
"Wildcard specification cannot be concatenated 


“Error writing <file-name> 


to <file-name> (<nn> records)" 


annot be concatenated” 
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(cbt, warning), 
(illdircopy, warning), 
(createdstm, info)); 


"File copied contiguous best try’ 
‘illegal director copy of <file-name> attempted” 
“<file-name> has been created in stream format" 


i) 
: Two SEVERE error message codes. 


LITERAL 
msg$_openinx = msg$_openin - 
sts$k_error + sts$k_severe, 
msg$_openoutx = msg$_openout - ! “Error opening <file=-name> as output"’ 
sts$k_error + sts$k_severe; 


“Error opening <file-name> as input"’ 


] 
A COPY specific message code: 


Sshr_messages (c copy_id, 
2 Ualidoutver, error)); 


“Explicit wildcard version required for new file’ 
LITERAL 


+ 
+ 


Bit offsets for flags in COPYSSEM_STATUS. Note that the first 16 bits 
are checked by COPYSSEMANTICS to determine the characteristics of the 
output file specification. Only 10 of these bits are currently in use. 
gh ny Wy describe the state of the input and output files begin 
a e it. 


concat_qual_bit = 0, ! /CONCATENATE was explicitly given 

exp_inp_ver_bit = 1, ! Explicit input version number specified 

exp_out_ver_bit = ¢° ! Explicit output version number specified 

no_output specbit = 3, ' No output file name, type or version specified 

wild_input_bit = 4, ! Wildcard in input specification 

wild_inp_ver_bit = 5, ! Input version number is wild 

wild_output_bit = 6, ! Wildcard in output specification 

wild_out_ver_bit = 7, ' Output version number wild 

multiple_output bit = 8, ! Multiple output files being produced 

multiple_input_bit = 9, ! Multiple input files specified 

quiet_slip_bit = 16, ! Slip lower version numbers without reporting them 

out file open bit = 17, ' Output file is currently open 

inf ile_dpen_Bit = 18, ' In put file is currently open 

concat_follows bit = 19, ' Input files will be concatenated 

concat_active_ bit = 20, ! Input files are being concatented to an output file 
wildcard_active_bit = 21, ! Input file spec contained a wildcar 

record_mode_b = ¢° ! Record mode 1/0 required 

extend outfile_bit = 23, ! Append input file to current output file 7 
no_expl_out_fiélds bit = se ' Output file spec fields all contained wild cards or were missing 
fifst_wild_infile_Bit = 25 ! Curr. file is first to match wildcard spec 


os 
: 
!' Macros 


ae 2 z a 
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MACRO 


‘oe 

' 

! Field definitions for COPYSSEM_STATUS, which describes the conditions 

! that effect the creation of the output file ( for example, an explicit 

' version number was giver for the output file ) and the current status of 
} the output file. (Is it open? Are there multiple output files? etc.) 


| 
| 
exp_inp_ver 
| 


concat_qual = COPYSSEM_STATUSC 0, concat_qual_bit, 1, 03%, 
= COPYSSEM_STATUSL 0, exp_inp_ver_bit, 1, OJ%, 
exp_out_ver = COPYSSEM_STATUSE 0, exp_out_ver_bit, 1, O32, 
no_output_ spec = COPYSSEM_STATUSL 0, no_output sp c.bit. 1, 0J%, 
wild_input = COPYSSEM_STATUSE 0, wild_inpuf_bit 1, 0%, 
wild-inp_ver = COPYSSEM-STATUSE 0, wild-inp_ver_bit, 1. 0J%. 
wild_output = COPYSSEM_STATUSL 0, wild_output_Bit, 1, 03%, 
wild_out_ver = COPYSSEM_STATUSE 0, w out_ver_bit, 1, 1. 
multiple_output = COPYSSEM_STATUSC 0, multiple_output_bit.1, 0J%, 
multiple_input = COPYSSEM_STATUSL 0, multiple_input_Bit, 1, 0%, 
quiet slip = COPYSSEM_STATUSEC 0, quiet_slip_ 1, 03%, 
out file_open = COPYSSEM-STATUSC 0, outfile_open bit, 1. 0J%. 
infile_open = COPYSSEM_STATU - infile_open_Bit, 1, 0%, 
concat_ follows = COPYSSEM_STATUSLE 0, concat_follows bit. 1, 0)%, 
concat_active = COPYSSEM_STATUSE 0, concat_active_Bit, 1, 0)%, 
wildcard_active = COPYSSEM_STATUS 8. wildcard_active_bit.1. 0J%, 
record_mode = COPYSSEM_STATUSL 0, record_mode_bit, 1, 0%, 
extend outfile = COPYSSEM_STATUS 8. extend outfile_bit, 1, 0J%, 
no_expl_out fields = COPYSSEM"STATUSC 0, no_expl_out_fiélds bit, 1, 0]%, 
fifst_wild_Tnfile = COPYSSEMTSTATUSC 0, first_wild_tnfile Bit, 1, 0J% 
MACRO 
++ 


Field definitions for COPYSCLI_STATUS, the block which contains the | 
results of the command Line parse. If a bit is set, then the qualifier 
was given on the command Line. 


Because the command Lines should produce identical results: 
COPY/QUAL a,b/NOQUAL,c * <-- COPY a,b/NOQUAL,c */QUAL 
COPY has to pretend that all qualifiers on the output file are global 
instead of positional. This means that extra information about 
the command Line needs to be kept around. So, for each positional 
qualifier (those qualifiers which effect the output file in some 
way) there are three bits in COPYSCLI_STATUS... one for the global 
presence of the qualifier, one for the local presence and the third 
for local negations of the qualifier. The longwords which contain 
values given on the command Line hold only the global values. The 
local values are stored elsewhere. 


me ee ee ee ee EE me 


‘eeeeeeereeeerererererereretteteeeneeeterekeeeeeeeerererereereeererereee 


eagerness 
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! COPYSCLI_STATUS has the following format: 
Byte 


32 16 15 0 


offset: 


Global qualifier flags; 2 - Positional qualifier flags 
Positional qualifier flags 

/ALLOCATION value (global) 

/EXTENSION value (global) 

/FILE_MAXIMUM value (global) 

/PROTECTION mask (global) 

/VOLUME value (global) 


ARRAS RBAAAALAAAALALEAL ALAA E EASES ASE SESE SERS E TERE REESE SEES EES E CES 
‘ 


append_command = COPY$ 
Log_msg_qual = CoPY$s 
explici€t_concat_qual= COPY$ 
negated_concat_qual = COPY$ 
new_version_qual = COPYS 
alloc qual = COPYS 
loc_aTloc_qual = COPY$ 
neg_alloc_qual = CoPY$s 
contig_qual = COPY$ 
contig_negated = CoPY$s 
loc_contig_qual = CoPY$s 
neg_contig_qual = CoPY$ 
extend_qual = COPY$s 
Loc_extend_qual = COPY$ 
neg_extend_qual = CoPYs 
file max_qual = COPYS 
loc_File-max_qual = COPY$ 
neg_file_max qual = COPY$ 
pretest qual = COoPYs 
oc_protect_qual = COPY$ 
neg_protect_qual = COoPY$ 
read_chk_qual = COPYS 
loc_read_chk_qual = COPY$ 
neg_read_chk_qual = COPY$ 
write_chk_qual = COPYS 
write _chk_negated = COPY$ 
loc_write_chk_qual = COPY$ 
neg_write_chk_qual = COPY$ 
over lay_qual = COPY$ 
loc_overlay_qual = COPY$ 


neg_overlay_qual coPy$ 


TATUSC O, O, 1, 03%, ! APPEND command 

TATUSE QO, 1, 1, OJ%, ' /LOG 

TATUSE O, ¢° 1, 0%, ' /CONCATENATE 

TATUSE 0, « Ve Bike ! /NOCONCATENATE 

TATUSE 0, 4, 1, 0)%, ! /NEW_ VERSION 

TATUS ee. O. Fo G8 ! /ALLOCATION 

TATUSE 2, 1, 1, 03%, ' /ALLOCATION (locally) 

TATUSE 2, 2, 1, 01%, ! /ALLOCATION (Locally negated) 
TATUS » | ao Be See ' /CONTIGUOUS 

TATUS « Be Bo Bae ' /NOCONTIGUOUS 

TATUS + Be te Glee ! /CONTIGUOUS (Locally) 

TATUS « @ 1, O38, ! /CONTIGUOUS (locally negated) 
TATUSE 2, 7, 1, 03%, ! /EXTENSION 

TATUS $: 8, 1, 03%, ! /EXTENSION (Locally) 

TATUS » We te DBs ! /EXTENSION (Locally negated) 
TATUS 3. 10, 1, 02%, ! /FILE_MAXIMUM 

TATUS ite Be lee ' /FILE_ MAXIMUM (Locally) 

TATUSC 2, 12, 1, 0J%, ! /FILE_MAXIMUM (Locally negated) 
TATUS + 3 2 oie. ! /PROTECTION 

TATUS 14, 1, 03%, ' /PROTECTION (Locally) 

TATUS 135 Vo G35, ! /PROTECTION (Locally negated) 
TATUSC 4, 0, 1, OJ%. ' /READ_CHECK 

TATUSE 4, 1, 1, 835° ' /READ_CHECK (locally) 

TATUSE 4, 2, 1, 03%, ! /READ_CHECK (locally negated) 
TATUSE 4 3. 1, 03%, ! /WRITE_CHECK 

TATUSE 4, 4, 1, OJ%, ' /NOWRITE CHECK 

TATUSE 4 5, 1, OJ%, ' /WRTIE_CRECK (locally) 

TATUSCE 4, 6, 1, 03%, ! /WRITE_CHECK (locally negated) 
TATUSE 4, 7, 1, i, ' /OVERLAY 

TATUSE 4, g. 1, 0J2, ' /OVERLAY (Locally) 

TATUSE 4, 9, 1, 03%, ! /OVERLAY (locally negated) 
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| 


volume qual = COPYSCLI_STATUSEC 4, 10, 1, 0)%, ! /VOLUME 

Loc _voTume_qual = COPYSCLIUSTATUSL 4, 11, 1, 0%, ! /VOLUME (Locally) 
neg_volume_qual = COPYSCLI_STATUSL 4, 12, 1, 0)%, ! /VOLUME (locally negated) 
truncate_qual = COPYSCLI_LSTATUSE 4, 13, 1, 0]%, ! /TRUNCATE 
truncate_negated = COPYSCLI_STATUSL 4, 14, 1, 0J%, ' /NOTRUNCATE 

loc truncate _qual = COPYSCLI_LSTATUSE 4, 15, 1, OJ%, ! /TRUNCATE (Locally) 
neg_truncate qual = COPYSCLI_LSTATUSC 4, 16, 1, 0J%, ! /TRUNCATE (locally negated) 
replace qual = COPYSCLI_LSTATUSC 4, 17, 1, 0J%, ! /REPLAC 

loc_repTace_qual = COPYSCLI-STATUSE 4, 18. ™ 8 i, ! /REPLACE (Locally) 
neg_replace_qual = COPYSCLI_LSTATUSE 4, 19, 1, OJ%, ! /REPLACE (locally negated) 
allocation_value = COPYSCLI_STATUS 8. 0, $038. ! /ALLOCATION value 
extension_value = COPYSCLI_STATUSLE 12, 0, 32,0)%, ! /EXTENSION value 
file_max_value = COPYSCLI_STATUSEC 16, 0, 32,0)%, ! /FILE_ MAXIMUM value 
protection_or = COPYSCLI_STATUSC 20, 0, 16,0)%, ! /PROTECTION mask 
protection_and = COPYSCLI_STATUSC 22, 0, 16,0)%, ! /PROTECTION mask 
volume_value = COPYSCLI_STATUSE 24, 0, 32,0]% ! /VOLUME value 


1 
End of REQUIRE file, COPY.REQ 


yyy 41 en 
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